#!/usr/bin/perl 

use strict;

use DBI;
use CGI;
use TTraker;

my $dbh;
initialize_dbi();
my $form_ref = parse_input();
print_header();

my %FORM_DATA = %$form_ref;
 
my $num = $FORM_DATA{'empNum'};
my $name = $FORM_DATA{'empName'};
my $job = $FORM_DATA{'empjob'};
my $loc = $FORM_DATA{'empLoc'};
my $start = $FORM_DATA{'startDate'};
my $end = $FORM_DATA{'endDate'};

my $facility = $FORM_DATA{'facilityID'};

my $msg = "Tables: rpt_general_client and rpt_general_employee Updated for $start thru $end";

fill_rpt_general_data_adjusted_from_history ($start, $end, $loc);
adm_activity_screen_from_pm ($num, $name, $job, $loc, $msg);

db_disconnect();



